Attribute VB_Name = "Seguridad"
Sub CrearCarpetas()
    Dim fso As New FileSystemObject
    On Error Resume Next
    If Not fso.FolderExists("c:\respdacli") Then fso.CreateFolder "c:\respdacli"
    If Not fso.FolderExists("d:\respdacli") Then fso.CreateFolder "d:\respdacli"
    If Not fso.FolderExists("e:\respdacli") Then fso.CreateFolder "e:\respdacli"
    If Not fso.FolderExists("f:\respdacli") Then fso.CreateFolder "f:\respdacli"
    If Not fso.FolderExists("g:\respdacli") Then fso.CreateFolder "g:\respdacli"
    If Not fso.FolderExists("h:\respdacli") Then fso.CreateFolder "h:\respdacli"
    If Not fso.FolderExists("i:\respdacli") Then fso.CreateFolder "i:\respdacli"
End Sub
Sub respaldarData()
    Dim fso As New FileSystemObject
    CrearCarpetas
    On Error Resume Next
    If QuienSoy = "servidor" Then
        nombrerespaldo = "bddacli" & Format(Time, "hhmm") & ".DRESP"
        If Not fso.FileExists("c:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "c:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("d:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "d:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("e:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "e:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("f:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "f:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("g:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "g:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("h:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "h:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("i:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "i:\respdacli\" & nombrerespaldo, True
        Base.Execute "delete from ultimo"
        Base.Execute "insert into ultimo values('" & nombrerespaldo & "')"
         SetAttr "c:\respdacli\" & nombrerespaldo, vbArchive
         SetAttr "c:\respdacli\" & nombrerespaldo, vbNormal
    End If
End Sub
Sub respaldarDataVALOR()
    Dim fso As New FileSystemObject
    CrearCarpetas
    On Error Resume Next
    If QuienSoy = "servidor" Then
        nombrerespaldo = "bddacli" & Format(Time, "hhmm") & "VALOR.DRESP"
        If Not fso.FileExists("c:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "c:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("d:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "d:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("e:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "e:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("f:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "f:\respdacli\" & nombrerespaldo, True
        If Not fso.FileExists("g:\respdacli\" & nombrerespaldo & ".DRESP") Then fso.CopyFile Ruta & BaseDatos, "g:\respdacli\" & nombrerespaldo, True
        Base.Execute "delete from ultimo"
        Base.Execute "insert into ultimo values('" & nombrerespaldo & "')"
    End If
End Sub
Function puedeRecargar(ByVal Usuario As String)
Dim tCajero As DAO.Recordset
    Set tCajero = Base.OpenRecordset("SELECT recargos FROM Cajero WHERE identifica='" & Usuario & "'")
    If Not tCajero.EOF Then
        puedeRecargar = tCajero("recargos")
    End If
End Function
